home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib02.dsk / I AM BUDDHA.bas < prev    next >
BASIC Source File  |  2023-02-26  |  4KB  |  97 lines
  1. 0  PRINT "";""
  2. 1  REM  ** I AM BUDDHA -- BY DEREK A. KELLY **
  3. 2  REM  ** COPYRIGHT (C) 1980 BY MICRO-SPARC INC., LINCOLN, MASS. 01773 **
  4. 3  GOTO 150: REM  TO MAIN PROGRAM
  5. 5  FOR A = 1 TO 40: PRINT "+";: NEXT A: RETURN 
  6. 6  FOR A = 1 TO 40: PRINT "=";: NEXT A: RETURN 
  7. 7  FOR A = 1 TO 40: PRINT "-";: NEXT A: RETURN 
  8. 8 Z =  INT(( RND(1) *100)/10): IF Z < = 0  OR Z > = 11  THEN 8
  9. 9  RETURN 
  10. 10  IF  LEFT$(Q$,1) = "?"  THEN  END 
  11. 11  RETURN 
  12. 14  PRINT "-?-";: GET A$: RETURN 
  13. 16  PRINT  CHR$(7): RETURN 
  14. 22  RESTORE 
  15. 23 N = 10
  16. 24  FOR I = 1 TO N: READ WO$(I): NEXT I
  17. 25  FOR I = 1 TO N: READ WA$(I): NEXT I
  18. 26  FOR I = 1 TO N: READ WH$(I): NEXT I
  19. 27  FOR I = 1 TO N: READ WN$(I): NEXT I
  20. 28  FOR I = 1 TO N: READ HW$(I): NEXT I
  21. 29  FOR I = 1 TO N: READ WY$(I): NEXT I
  22. 30  RETURN 
  23. 34  HOME : VTAB 4: GOSUB 5: PRINT :B$ = "I AM BUDDHA"
  24. 35  PRINT  TAB( (40 - LEN(B$))/2)B$
  25. 36  COLOR= 5: VLIN 8,11 AT 10: VLIN 8,11 AT 30
  26. 37  GOSUB 6
  27. 38  PRINT  TAB( 8)"WHAT IS YOUR QUESTION? ": PRINT 
  28. 39  PRINT "(FIRST WORD= WHO:WHAT:WHEN:WHERE:HOW:WHY:OR '?' TO END)"
  29. 40  INPUT "INPUT QUERY =? :";Q$
  30. 41  GOSUB 10
  31. 42  GOSUB 7
  32. 43  PRINT "MY ANSWER IS: --->"
  33. 44  PRINT : RETURN 
  34. 50  REM  DECISIONS
  35. 51  FOR I = 1 TO N:C$(I) = WO$(I): NEXT I: GOTO 60
  36. 52  FOR I = 1 TO N:C$(I) = WA$(I): NEXT I: GOTO 60
  37. 53  FOR I = 1 TO N:C$(I) = WH$(I): NEXT I: GOTO 60
  38. 54  FOR I = 1 TO N:C$(I) = WN$(I): NEXT I: GOTO 60
  39. 55  FOR I = 1 TO N:C$(I) = HW$(I): NEXT I: GOTO 60
  40. 56  FOR I = 1 TO N:C$(I) = WY$(I): NEXT I
  41. 59 ::
  42. 60  REM  MAIN PRINTOUT
  43. 62  GOSUB 8
  44. 64  PRINT  TAB( (40 - LEN(C$(Z)))/2)C$(Z)"!"
  45. 65  GOSUB 6
  46. 66  GOSUB 16: PRINT  TAB( 8)"NEXT QUESTION";
  47. 67  GOSUB 14
  48. 68  RETURN 
  49. 70  REM  '-' INPUTS
  50. 72 F =  INT(( RND(1) *12)/2): IF F = 0  OR F > = 7  THEN 72
  51. 73 F = F +50
  52. 74  IF F = 51  THEN  GOTO 51
  53. 75  IF F = 52  THEN  GOTO 52
  54. 76  IF F = 53  THEN  GOTO 53
  55. 77  IF F = 54  THEN  GOTO 54
  56. 78  IF F = 55  THEN  GOTO 55
  57. 79  IF F = 56  THEN  GOTO 56
  58. 80  GOTO 72
  59. 150  REM  MAIN PROGRAM
  60. 152  DIM C$(15),WO$(15),WA$(15),WN$(15),HW$(15),WY$(15)
  61. 154  HOME : VTAB 2
  62. 155  GOSUB 5
  63. 156  VTAB 12: HTAB 17: PRINT "WHOA!"
  64. 157  GOSUB 22
  65. 158  PRINT 
  66. 160  GOSUB 34
  67. 164  IF  LEFT$(Q$,3) = "WHO"  THEN  GOSUB 51
  68. 165  IF  LEFT$(Q$,4) = "WHAT"  THEN  GOSUB 52
  69. 166  IF  LEFT$(Q$,5) = "WHERE"  THEN  GOSUB 53
  70. 167  IF  LEFT$(Q$,4) = "WHEN"  THEN  GOSUB 54
  71. 168  IF  LEFT$(Q$,3) = "HOW"  THEN  GOSUB 55
  72. 169  IF  LEFT$(Q$,3) = "WHY"  THEN  GOSUB 56
  73. 170  IF  LEFT$(Q$,1) = "-"  THEN  GOSUB 70
  74. 180  GOTO 160
  75. 200  REM  DATA
  76. 210  DATA  NO MATTER, WHO CARES, WHY DO YOU WANT TO KNOW?, ANYONE WILL DO
  77. 212  DATA  NO ONE YOU WOULD KNOW, SOME FREAK
  78. 214  DATA  I CANNOT TELL YOU, AN UNUSUAL PERSON,A FRIEND OF MINE
  79. 215  DATA  YOU WOULD JUST DIE IF YOU KNEW,I DON'T WANT TO ANSWER THAT
  80. 220  DATA  NEVER MIND, NOTHING, HOW ON EARTH SHOULD I KNOW?
  81. 222  DATA  WHAT DO YOU WANT TO MAKE OF IT?, NEITHER THIS NOR THAT, IT'S NONE OF YOUR BUSINESS
  82. 224  DATA  SOMETHING FANTASTIC, GET OUTTA HERE, YOU'D NEVER BELIEVE ME, SCRAM
  83. 230  DATA  THERE, EVERYWHERE, UNDER THE MOON, OVER THE EARTH
  84. 232  DATA  THINK, CROSS YOUR HEART?
  85. 234  DATA  BEYOND MOUNTAIN PEAKS,ROUND THE CORNER,OVER THE HILLS
  86. 235  DATA  OBSESSIVE AREN'T YOU?
  87. 240  DATA  NEVER, TOMORROW, DOWN THE ROAD AWHILE
  88. 242  DATA  WHEN THE TIME IS RIGHT, WOULDN'T YOU LIKE TO KNOW, WHEN I SAY
  89. 244  DATA  CROSS THAT BRIDGE WHEN YOU COME TO IT, DON'T BUTT IN, EVENTUALLY, SOMEDAY
  90. 250  DATA  NEVER YOU MIND, FIRST YOU GOTTA HAVE A PLAN, YOU'VE GOT ME THERE
  91. 252  DATA  BY WORKING YOUR BUTT OFF, BY CALCULATED INACTION, BY TRIAL AND ERROR
  92. 254  DATA  YOU'LL KNOW WHEN THE TIME COMES, LIKE CLOCKWORK, LEAVE IT ALONE
  93. 255  DATA  ENOUGH OF YOUR QUESTIONS
  94. 260  DATA  WHY NOT?, SO WHAT'S YOUR PROBLEM ANYWAY?
  95. 262  DATA  TRY IT! YOU'LL LIKE IT, JUST BECAUSE..., AS AN AFTERTHOUGHT
  96. 264  DATA  IT'S IN YOUR BEST INTEREST, WHY DO YOU THINK?
  97. 266  DATA  YOUR GUESS IS AS GOOD AS MINE, C'EST LA VIE, WELL THAT'S MY OPINION